home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / HyperCard / CambridgeMedlineTutor / ccMedTut2 / card_19009.txt < prev    next >
Encoding:
Text File  |  1992-02-24  |  6.2 KB  |  269 lines

  1. -- card: 19009 from stack: in
  2. -- bmap block id: 19233
  3. -- flags: 0000
  4. -- background id: 11419
  5. -- name: 
  6. ----- HyperTalk script -----
  7. --Hidden field - card field id 21
  8.  
  9. --Handlers below are not very elegant, but they work - should be able to put the EnterInField script as part of On ArrowKey handler, under option that goes to next card, but I can't get this to work - does work this way, mapping arrow action to another handler - Chose Enter InField just because it's a handler that won't ever be used for any thing else [in fact, can't be used for most part, because stack is pro tected & user can't get cursor in field]
  10.  
  11. On ArrowKey which
  12.   if which is "right" then EnterInField
  13.   else if which is "down" then beep
  14.   else if which is "left" then beep
  15.   else if which is "up" then beep
  16. End ArrowKey
  17.  
  18. On EnterInField
  19.   global x
  20.   lock screen
  21.   go next
  22.   hide card field "red"
  23.   unlock screen
  24.   wait x
  25.   lock screen
  26.   show card field "red"
  27.   unlock screen with dissolve
  28. End EnterInField
  29.  
  30.  
  31.  
  32. -- part 20 (field)
  33. -- low flags: 00
  34. -- high flags: 0000
  35. -- rect: left=149 top=270 right=288 bottom=212
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 0
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 2048
  42. -- line height: 16
  43. -- part name: 
  44.  
  45.  
  46. -- part 23 (field)
  47. -- low flags: 00
  48. -- high flags: 0000
  49. -- rect: left=31 top=100 right=118 bottom=74
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 0
  53. -- font id: 3
  54. -- text size: 12
  55. -- style flags: 256
  56. -- line height: 16
  57. -- part name: 
  58.  
  59.  
  60. -- part 24 (field)
  61. -- low flags: 00
  62. -- high flags: 0000
  63. -- rect: left=78 top=100 right=119 bottom=391
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 0
  67. -- font id: 3
  68. -- text size: 12
  69. -- style flags: 256
  70. -- line height: 16
  71. -- part name: 
  72.  
  73.  
  74. -- part 25 (field)
  75. -- low flags: 00
  76. -- high flags: 0000
  77. -- rect: left=395 top=100 right=118 bottom=495
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 0
  81. -- font id: 3
  82. -- text size: 12
  83. -- style flags: 256
  84. -- line height: 16
  85. -- part name: 
  86.  
  87.  
  88. -- part 27 (field)
  89. -- low flags: 00
  90. -- high flags: 0000
  91. -- rect: left=78 top=80 right=99 bottom=391
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 0
  95. -- font id: 3
  96. -- text size: 12
  97. -- style flags: 256
  98. -- line height: 16
  99. -- part name: 
  100.  
  101.  
  102. -- part 28 (field)
  103. -- low flags: 00
  104. -- high flags: 0000
  105. -- rect: left=31 top=80 right=98 bottom=74
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 0
  109. -- font id: 3
  110. -- text size: 12
  111. -- style flags: 256
  112. -- line height: 16
  113. -- part name: 
  114.  
  115.  
  116. -- part 29 (field)
  117. -- low flags: 00
  118. -- high flags: 0000
  119. -- rect: left=395 top=80 right=98 bottom=495
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 0
  123. -- font id: 3
  124. -- text size: 12
  125. -- style flags: 256
  126. -- line height: 16
  127. -- part name: 
  128.  
  129.  
  130. -- part 30 (field)
  131. -- low flags: 00
  132. -- high flags: 0000
  133. -- rect: left=31 top=120 right=138 bottom=74
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 0 / 0
  136. -- text alignment: 0
  137. -- font id: 3
  138. -- text size: 12
  139. -- style flags: 256
  140. -- line height: 16
  141. -- part name: 
  142.  
  143.  
  144. -- part 31 (field)
  145. -- low flags: 00
  146. -- high flags: 0000
  147. -- rect: left=78 top=120 right=139 bottom=391
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 0 / 0
  150. -- text alignment: 0
  151. -- font id: 3
  152. -- text size: 12
  153. -- style flags: 256
  154. -- line height: 16
  155. -- part name: 
  156.  
  157.  
  158. -- part 32 (field)
  159. -- low flags: 00
  160. -- high flags: 0000
  161. -- rect: left=395 top=120 right=138 bottom=495
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 0 / 0
  164. -- text alignment: 0
  165. -- font id: 3
  166. -- text size: 12
  167. -- style flags: 256
  168. -- line height: 16
  169. -- part name: 
  170.  
  171.  
  172. -- part 36 (field)
  173. -- low flags: 00
  174. -- high flags: 2004
  175. -- rect: left=2 top=116 right=325 bottom=139
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 0 / 0
  178. -- text alignment: 0
  179. -- font id: 3
  180. -- text size: 12
  181. -- style flags: 0
  182. -- line height: 18
  183. -- part name: red
  184.  
  185.  
  186. -- part contents for card part 1
  187. ----- text -----
  188. "SMOKING:PC"[MJ,MN] OR 
  189.  
  190. -- part contents for card part 2
  191. ----- text -----
  192. 466 [MED90]1988]
  193.  
  194. -- part contents for card part 20
  195. ----- text -----
  196. Search
  197.  
  198. -- part contents for card part 21
  199. ----- text -----
  200.    The search retrieved 9 articles on BODY IMAGE and DIET, REDUCING. To display the first one of these citations, use the DISPLAY command - Move the highlight to Display by hitting the right arrow key ...
  201.  
  202. -- part contents for card part 22
  203. ----- text -----
  204. #4:
  205.  
  206. -- part contents for card part 23
  207. ----- text -----
  208. #2
  209.  
  210. -- part contents for card part 25
  211. ----- text -----
  212. 410 [MED90]
  213.  
  214. -- part contents for card part 26
  215. ----- text -----
  216. "SMOKING:TH"[MJ,MN] . . . . . . .
  217.  
  218. -- part contents for card part 28
  219. ----- text -----
  220. #1
  221.  
  222. -- part contents for card part 29
  223. ----- text -----
  224.  95 [MED90]
  225.  
  226. -- part contents for card part 30
  227. ----- text -----
  228. #3
  229.  
  230. -- part contents for card part 24
  231. ----- text -----
  232. "SMOKING:TH" [MJ,MN]  . . . . . . . . . . . . . . .
  233.  
  234. -- part contents for card part 27
  235. ----- text -----
  236. "SMOKING CESSATION"[TI]  . . . . . . . . . . . .
  237.  
  238. -- part contents for card part 31
  239. ----- text -----
  240. "SMOKING:PC"[MJ,MN]   . . . . . . . . . . . . . . .
  241.  
  242. -- part contents for card part 32
  243. ----- text -----
  244.  63 [MED90]
  245.  
  246. -- part contents for background part 3
  247. ----- text -----
  248. Search Menu
  249.  
  250. -- part contents for background part 8
  251. ----- text -----
  252. 44566
  253.  
  254. -- part contents for background part 13
  255. ----- text -----
  256.  
  257.  
  258.  
  259. -- part contents for card part 33
  260. ----- text -----
  261. The search retrieved 9 articles on BODY IMAGE and DIET, REDUCING. To display the first one of these citations, use the DISPLAY command - Move the highlight to Display by hitting the right arrow key ...
  262.  
  263. -- part contents for card part 35
  264. ----- text -----
  265.    Now, to broaden our search on the subject of SMOKING CESSATION, let's search for articles on either "Smoking:TH" or "Smoking:PC," as MeSH terms. Hit RETURN & the search will be run automatically.   
  266.  
  267. -- part contents for card part 36
  268. ----- text -----
  269.    Now, to broaden our search on            'smoking cessation' let's search for articles on either "Smoking:TH" or "Smoking:PC" as MeSH terms. The search will run automatically.